CD Fun House 8

home *** CD-ROM | disk | FTP | other *** search

/ CD Fun House 8 / CD Funhouse Version 8.0 - Wayzata Technology (7013) (1993).iso / pc / mac / __cd_fun / __sports / hyperfoo.00 / background_2687.txt < prev next >

Wrap

Text File | 1990-10-03 | 15KB | 588 lines

-- background: 2687 from stack: in.00 -- bmap block id: 3288 -- flags: 0000 -- background id: 0 -- name: ----- HyperTalk script ----- on openStack hide message box show menuBar pass openStack end openStack on Computer global players, comp, team1 if players=1 and comp is true then if team1 is true then PickOffense else PickDefense exit Computer end if if players=1 and comp is false then if team1 is false then PickOffense else PickDefense end if end Computer on PickDefense global def,ty put the random of 10 into r if r>9 then put the random of 99 into d put trunc(d/17) into def else put 3 into def end if if ty<8 or ty>92 then put 6 into def end PickDefense on PickOffense global dwn, dir, ty, qtr, time, fdown, defcnt, lastdef, def, players if lastdef = def then put defcnt+1 into defcnt else put 0 into defcnt end if put def into lastdef put the random of 100 into off if (defcnt>2 and players=1) then put 7 into def if off<15 then put 7 into def if qtr=2 or qtr>3 then if time<25 then if ((ty<45 and dir=1) or (ty>55 and dir=0)) then FieldGoal Runplay exit PickOffense else Longpass Runplay exit PickOffense end if end if end if if dwn=4 then if (ty>60 and dir=0) or (ty<40 and dir=1) then put the random of 10 into dff if qtr=5 then put 8 into dff if dff<3 then if dff<2 then Screenpass Runplay exit PickOffense else Sweep Runplay exit PickOffense end if else FieldGoal Runplay exit PickOffense end if else Punt exit PickOffense end if else if abs(ty-fdown)<2 then if off<40 then Shortpass else Drawplay Runplay exit PickOffense end if if (dwn>2 and abs(ty-fdown)>10) then if off>50 then if abs(ty-fdown)<15 then Screenpass else Longpass end if else Reverse end if Runplay exit PickOffense end if if (dwn>2 and abs(ty-fdown)<9) then if off>50 then Slant else Sweep end if Runplay exit PickOffense end if if off<17 then Screenpass if off>=17 and off<21 then Quickout if off>=21 and off<29 then Endrun if off>=29 and off<36 then Drawplay if off>=36 and off<54 then Sweep if off>=54 and off<58 then Longpass if off>=58 and off<78 then Slant if off>=78 and off<83 then Mediumpass if off>=83 and off<92 then Shortpass if off>=92 and off<96 then OffTackle if off>=96 and off<=100 then Reverse Runplay end if end PickOffense on Drawplay global ty, def, players, dir, yop, plytyp, ptime, play, drop, inc global pen, team1, t1r, t2r put "Draw Play" into play put 0 into drop put 0 into inc put 0 into plytyp put the random of 10 into tx put 22+tx into ptime put the random of 99 into p put the random of 3 into x put 0 into doff if def=0 then put -9 into doff if def=1 then put -6 into doff if def=2 then put -3 into doff if def=3 then put 0 into doff if def=4 then put 6 into doff if def=5 then put 11 into doff if def=6 then put -18 into doff if def=7 then put 30 into doff put p+doff into p if p>=98 then put 61+x into yop if p>=94 and p<98 then put 19+x into yop if p>=88 and p<94 then put 7+x into yop if p>=67 and p<88 then put 3+x into yop if p>=35 and p<67 then put 0+x into yop if p>=25 and p<35 then put -2+x into yop if p<15 then put -6+x into yop Runup end Drawplay on QBSneak global ty, def, players, dir, yop, plytyp, ptime, play, drop, inc global pen, team1, t1r, t2r put "QB Sneak" into play put 0 into drop put 0 into inc put 0 into plytyp put the random of 10 into tx put 12+tx into ptime put the random of 99 into p put the random of 3 into x put 0 into doff if def=0 then put -13 into doff if def=1 then put -7 into doff if def=2 then put 0 into doff if def=3 then put 5 into doff if def=4 then put 15 into doff if def=5 then put 30 into doff if def=6 then put -18 into doff if def=7 then put 30 into doff put p+doff into p if p>=98 then put 33+x into yop if p>=94 and p<98 then put 19+x into yop if p>=88 and p<94 then put 10+x into yop if p>=67 and p<88 then put 2 into yop if p>=35 and p<67 then put 1 into yop if p>=15 and p<35 then put 0 into yop if p<15 then put -2 into yop Runup end QBSneak on Sweep global ty, def, players, dir, yop, plytyp, ptime, play, drop, inc global pen, team1, t1r, t2r put "Sweep" into play put 0 into drop put 0 into inc put 0 into plytyp put the random of 10 into tx put 22+tx into ptime put the random of 99 into p put the random of 3 into x put 0 into doff if def=0 then put -13 into doff if def=1 then put -8 into doff if def=2 then put -5 into doff if def=3 then put 0 into doff if def=4 then put 6 into doff if def=5 then put 11 into doff if def=6 then put -18 into doff if def=7 then put 30 into doff put p+doff into p if p>=98 then put 61+x into yop if p>=94 and p<98 then put 33+x into yop if p>=88 and p<94 then put 15+x into yop if p>=67 and p<88 then put 5+x into yop if p>=35 and p<67 then put 2+x into yop if p>=25 and p<35 then put -4+x into yop if p<15 then put -8+x into yop Runup end Sweep on OffTackle global ty, def, players, dir, yop, plytyp, ptime, play, drop, inc global pen, team1, t1r, t2r put "Off Tackle" into play put 0 into drop put 0 into inc put 0 into plytyp put the random of 10 into tx put 20+tx into ptime put the random of 99 into p put the random of 4 into x put 0 into doff if def=0 then put -10 into doff if def=1 then put -8 into doff if def=2 then put -4 into doff if def=3 then put 0 into doff if def=4 then put 5 into doff if def=5 then put 10 into doff if def=6 then put -18 into doff if def=7 then put 30 into doff put p+doff into p if p>=98 then put 59+x into yop if p>=94 and p<98 then put 23+x into yop if p>=88 and p<94 then put 7+x into yop if p>=67 and p<88 then put 3+x into yop if p>=35 and p<67 then put 0+x into yop if p>=15 and p<35 then put -2+x into yop if p<15 then put -5+x into yop Runup end OffTackle on Endrun global ty, def, players, dir, yop, plytyp, ptime, play, drop, inc global pen, team1, t1r, t2r put "End Run" into play put 0 into drop put 0 into inc put 0 into plytyp put the random of 10 into tx put 23+tx into ptime put the random of 99 into p put the random of 3 into x put 0 into doff if def=0 then put -12 into doff if def=1 then put -7 into doff if def=2 then put -5 into doff if def=3 then put 0 into doff if def=4 then put 5 into doff if def=5 then put 10 into doff if def=6 then put -18 into doff if def=7 then put 30 into doff put p+doff into p if p>=98 then put 51+x into yop if p>=94 and p<98 then put 23+x into yop if p>=88 and p<94 then put 14+x into yop if p>=67 and p<88 then put 7+x into yop if p>=35 and p<67 then put 0+x into yop if p>=15 and p<35 then put -3+x into yop if p<15 then put -6+x into yop Runup end Endrun on Reverse global ty, def, players, dir, yop, plytyp, ptime, play, drop, inc global pen, team1, t1r, t2r put "Reverse" into play put 0 into drop put 0 into inc put 0 into plytyp put the random of 10 into tx put 23+tx into ptime put the random of 99 into p put the random of 5 into x put 0 into doff if def=0 then put -20 into doff if def=1 then put -10 into doff if def=2 then put -5 into doff if def=3 then put 0 into doff if def=4 then put 8 into doff if def=5 then put 19 into doff if def=6 then put 30 into doff if def=7 then put 30 into doff put p+doff into p if p>=98 then put 78+x into yop if p>=94 and p<98 then put 34+x into yop if p>=88 and p<94 then put 25+x into yop if p>=77 and p<88 then put 14+x into yop if p>=35 and p<77 then put -4+x into yop if p>=15 and p<35 then put -7+x into yop if p<15 then put -10+x into yop Runup end Reverse on Screenpass global ty, def, players, dir, yop, plytyp, ptime, play, drop, inc global pen, team1, t1p, t2p put "TE Screen" into play put 21 into drop put 0 into inc put 1 into plytyp put the random of 10 into tx put 13+tx into ptime put the random of 99 into p put the random of 4 into x put 0 into doff if def=0 then if tx<7 then put 30 into doff else put -20 into doff put -5 into x end if end if if def=1 then put 13 into doff if def=2 then put 3 into doff if def=3 then put 0 into doff if def=4 then put -10 into doff if def=5 then put -20 into doff if def=6 then put -5 into doff if def=7 then put 30 into doff put p+doff into p if p>=99 then put 37+x into yop if p>=96 and p<99 then put 25+x into yop if p>=81 and p<96 then put 21+x into yop if p>=60 and p<81 then put 8+x into yop if p>=44 and p<60 then put 3+x into yop if p>=15 and p<44 then put 0 into yop put the random of 75 into inc end if if p<15 then put -6+x into yop if yop<0 then put abs(yop*3) into drop Passup end Screenpass on Mediumpass global ty, def, players, dir, yop, plytyp, ptime, play, drop, inc global pen, team1, t1p, t2p put "Medium In" into play put 21 into drop put 0 into inc put 1 into plytyp put the random of 10 into tx put 15+tx into ptime put the random of 99 into p put the random of 4 into x put 0 into doff if def=0 then if tx<7 then put 30 into doff else put -20 into doff put -5 into x end if end if if def=1 then put 13 into doff if def=2 then put 3 into doff if def=3 then put 0 into doff if def=4 then put -10 into doff if def=5 then put -20 into doff if def=6 then put -5 into doff if def=7 then put 30 into doff put p+doff into p if p>=99 then put 67+x into yop if p>=96 and p<99 then put 45+x into yop if p>=91 and p<96 then put 31+x into yop if p>=70 and p<91 then put 12+x into yop if p>=54 and p<70 then put 1+x into yop if p>=15 and p<54 then put 0 into yop put the random of 75 into inc end if if p<15 then put -6+x into yop if yop<0 then put abs(yop*3) into drop Passup end Mediumpass on Longpass global ty, def, players, dir, yop, plytyp, ptime, play, drop, inc global pen, team1, t1p, t2p put "Long Pass" into play put 24 into drop put 0 into inc put 1 into plytyp put the random of 10 into tx put 18+tx into ptime put the random of 99 into p put the random of 5 into x put 0 into doff if def=0 then if tx<7 then put 30 into doff else put -20 into doff put -7 into x end if end if if def=1 then put 13 into doff if def=2 then put 3 into doff if def=3 then put 0 into doff if def=4 then put -6 into doff if def=5 then put -10 into doff if def=6 then put -5 into doff if def=7 then put 30 into doff put p+doff into p if p>=98 then put 67+x into yop if p>=96 and p<98 then put 55+x into yop if p>=91 and p<96 then put 42+x into yop if p>=82 and p<91 then put 33+x into yop if p>=75 and p<82 then put 19+x into yop if p>=15 and p<75 then put 0 into yop put the random of 150 into inc end if if p<15 then put -7+x into yop if yop<0 then put abs(yop*3) into drop Passup end Longpass on Quickout global ty, def, players, dir, yop, plytyp, ptime, play, drop, inc global pen, team1, t1p, t2p put "Quick Out" into play put 15 into drop put 0 into inc put 1 into plytyp put the random of 10 into tx put 16+tx into ptime put the random of 99 into p put the random of 4 into x put 0 into doff if def=0 then if tx<7 then put 30 into doff else put -20 into doff put -5 into x end if end if if def=1 then put 13 into doff if def=2 then put 0 into doff if def=3 then put 0 into doff if def=4 then put -5 into doff if def=5 then put -10 into doff if def=6 then put -5 into doff if def=7 then put 30 into doff put p+doff into p if p>=98 then put 40+x into yop if p>=96 and p<98 then put 35+x into yop if p>=91 and p<96 then put 17+x into yop if p>=82 and p<91 then put 11+x into yop if p>=44 and p<82 then put 3+x into yop if p>=15 and p<44 then put 0 into yop put the random of 50 into inc end if if p<15 then put -6+x into yop if yop<0 then put abs(yop*3) into drop Passup end Quickout on Slant global ty, def, players, dir, yop, plytyp, ptime, play, drop, inc global pen, team1, t1p, t2p put "Slant" into play put 15 into drop put 0 into inc put 1 into plytyp put the random of 10 into tx put 12+tx into ptime put the random of 99 into p put the random of 4 into x put 0 into doff if def=0 then if tx<7 then put 30 into doff else put -20 into doff put -5 into x end if end if if def=1 then put 13 into doff if def=2 then put 0 into doff if def=3 then put 0 into doff if def=4 then put -5 into doff if def=5 then put -10 into doff if def=6 then put -5 into doff if def=7 then put 30 into doff put p+doff into p if p>=98 then put 70+x into yop if p>=96 and p<98 then put 51+x into yop if p>=91 and p<96 then put 15+x into yop if p>=72 and p<91 then put 9+x into yop if p>=44 and p<72 then put 3+x into yop if p>=15 and p<44 then put 0 into yop put the random of 50 into inc end if if p<15 then put -6+x into yop if yop<0 then put abs(yop*3) into drop Passup end Slant on Shortpass global ty, def, players, dir, yop, plytyp, ptime, play, drop, inc global pen, team1, t1p, t2p put "Short Option" into play put 15 into drop put 0 into inc put 1 into plytyp put the random of 10 into tx put 14+tx into ptime put the random of 99 into p put the random of 5 into x put 0 into doff if def=0 then if tx<7 then put 30 into doff else put -20 into doff put -4 into x end if end if if def=1 then put 13 into doff if def=2 then put 2 into doff if def=3 then put 0 into doff if def=4 then put -7 into doff if def=5 then put -13 into doff if def=6 then put -5 into doff if def=7 then put 30 into doff put p+doff into p if p>=98 then put 48+x into yop if p>=96 and p<98 then put 35+x into yop if p>=91 and p<96 then put 22+x into yop if p>=72 and p<91 then put 4+x into yop if p>=40 and p<72 then put 0+x into yop if p>=15 and p<40 then put 0 into yop put the random of 50 into inc end if if p<15 then put -7+x into yop if yop<0 then put abs(yop*3) into drop Passup end Shortpass